﻿Imports System.Data.SqlClient
Imports System.Configuration
Public Class frm_themgiaovien
    Dim tb As New DataTable
    Sub loadgv()
        Dim cmd As New SqlCommand("sp_giaovien_lenluoi", conn)
        cmd.CommandType = CommandType.StoredProcedure

        Dim da As New SqlDataAdapter(cmd)
        Dim tb1 As New DataTable
        tb = tb1
        da.Fill(tb1)
        dgv_dsgv.DataSource = tb1
    End Sub

    Private Sub cmd_capnhat_Click(sender As System.Object, e As System.EventArgs) Handles cmd_capnhat.Click
        If cmd_capnhat.Text = "Thêm" Then
            Dim cmd As New SqlCommand("sp_giaovien_insert", conn)
            cmd.CommandType = CommandType.StoredProcedure

            cmd.Parameters.AddWithValue("@magiaovien", Trim(txt_magv.Text))
            cmd.Parameters.AddWithValue("@tengiaovien", Trim(txt_tengv.Text))
            cmd.Parameters.AddWithValue("@gioitinh", Trim(txt_gioitinh.Text))
            cmd.Parameters.AddWithValue("@ngaysinh", Trim(dtp_ngaysinh.Value))
            cmd.Parameters.AddWithValue("@diachi", Trim(txt_diachi.Text))
            cmd.Parameters.AddWithValue("@sodt", Trim(txt_sodt.Text))
            cmd.Parameters.AddWithValue("@luongcoban", Trim(txt_mucluong.Text))


            Dim i As Integer = cmd.ExecuteNonQuery

            If i <= 0 Then
                MsgBox("Chưa thêm được giáo viên mới")
            End If
            If i > 0 Then
                MsgBox("Thêm giáo viên mới thành công mới thành công!")
                loadgv()
            End If
        End If

        If cmd_capnhat.Text = "Sửa" Then
            Dim cmd As New SqlCommand("sp_giaovien_update", conn)
            cmd.CommandType = CommandType.StoredProcedure

            cmd.Parameters.AddWithValue("@magiaovien", Trim(txt_magv.Text))
            cmd.Parameters.AddWithValue("@tengiaovien", Trim(txt_tengv.Text))
            cmd.Parameters.AddWithValue("@gioitinh", Trim(txt_gioitinh.Text))
            cmd.Parameters.AddWithValue("@ngaysinh", Trim(dtp_ngaysinh.Value))
            cmd.Parameters.AddWithValue("@diachi", Trim(txt_diachi.Text))
            cmd.Parameters.AddWithValue("@sodt", Trim(txt_sodt.Text))
            cmd.Parameters.AddWithValue("@luongcoban", Trim(txt_mucluong.Text))

            Dim i As Integer = cmd.ExecuteNonQuery
            If i <= 0 Then
                MsgBox("Chưa cập nhật được thông tin giáo viên")
            End If
            If i > 0 Then
                MsgBox("Cập nhật giáo viên thành công!")
                loadgv()
                cmd_huy_Click(sender, e)
            End If
        End If
    End Sub


    Private Sub cmd_xoa_Click(sender As System.Object, e As System.EventArgs) Handles cmd_xoa.Click
        Try
            Dim cmd As New SqlCommand("sp_giaovien_delete", conn)
            cmd.CommandType = CommandType.StoredProcedure

            cmd.Parameters.AddWithValue("@magiaovien", dgv_dsgv.Item("MaGiaoVien", dgv_dsgv.CurrentRow.Index).Value)
            Dim i As Integer = cmd.ExecuteNonQuery
            If i > 0 Then
                MsgBox("Xóa giáo viên thành công")
                loadgv()
                cmd_huy_Click(sender, e)
            End If
        Catch ex As Exception
            MsgBox("Không xóa được khách hàng vì ràng buộc toàn vẹn")
        End Try
    End Sub

    Private Sub cmd_huy_Click(sender As System.Object, e As System.EventArgs) Handles cmd_huy.Click
        For Each k As Control In Me.Controls
            If TypeOf k Is TextBox Then
                k.Text = ""
            End If
        Next
        cmd_capnhat.Text = "Thêm"
    End Sub

    Private Sub dgv_dsgv_DoubleClick(sender As System.Object, e As System.EventArgs) Handles dgv_dsgv.DoubleClick
        Dim r As DataGridViewRow = dgv_dsgv.CurrentRow
        txt_magv = r.Cells("MaGiaoVien").Value
        txt_tengv.Text = r.Cells("TenGiaoVien").Value
        txt_gioitinh.Text = r.Cells("GioiTinh").Value
        dtp_ngaysinh.Text = r.Cells("NgaySinh").Value
        txt_diachi.Text = r.Cells("DiaChi").Value
        txt_sodt.Text = r.Cells("SoDT").Value
        txt_mucluong.Text = r.Cells("LuongCoBan").Value

        cmd_capnhat.Text = "Sửa"
    End Sub
End Class